Select Code to Download

my (%inf,@info,@keys,$phile,$key,$value);

use Cwd;
my $dir=Cwd->getcwd();
opendir(DIR,"$dir")or die "@!";

while ( $phile=readdir(DIR)){
        if($phile=~/^\.$/){next;}
        elsif($phile=~/^\.\.$/){next;}

next if $phile =~ /.../;

next if $phile eq '.' or $phile eq '..';

        elsif($phile=~/^(.*)$/)

        {print "$phile\n";info($phile)}
        info ($phile);
        }

sub info{
         @info=stat($phile);
        @keys=qw(Dev Inode Mode NLink UID GID RDev Size ATime CTime Bl
+ksize Blocks);

#!/usr/bin/perl

...
}

__END__