opendir( DIR, '.' );
    my @files = readdir(DIR);
closedir( DIR );
my $findbin = q#BEGIN {
    use FindBin qw ($RealBin $RealScript);
    my ($binpath) = $FindBin::RealBin =~ /^(.*)$/;
    chdir $binpath;
}
#;
foreach my $file ( @files ) {
    next if $file !~ /\.pl$/;
    local $/;
    open( INF, $file );
        my $contents = <INF>;
    close( INF );
    $contents =~ s/^(.*?\n)/$1$findbin/;
    open( OUTF, ">$file" );
        print OUTF $contents;
    close( OUTF );
    print "Updated $file\n";
}
print "Complete";
my $read = <STDIN>;