return if /^\./;
return if -d;

#!/usr/bin/env perl
use warnings;
use strict;
use File::Copy;
use File::Find;

my $dir = '/home/oo/bin';

find( \&wanted, $dir );

sub wanted {
    return if /^\./;
    return if -d;
    if ( -e and -f ) {
        my $file = $_;
        my $temp = 'temp_file';
        open my $out, '>', $temp or die $!;
        open my $in, '<', $file or die $!;
            while ( defined( my $row = <$in> ) ) {
                $row =~ s|^#!/usr/bin/perl|#!/usr/bin/env perl|;
                print $out $row;
            }
        close $in or die $!;
        close $out or die $!;
        move $temp, $file;
        chmod 0755, $file or die $!;
    }
}