DB<159> ;{ 
           use strict;
           my $path="/tmp/path";
           my %handle; 
           open $handle{$path},"<",$path; 
           while ( my ($path,$handle) = each %handle ) {
             print <$handle>;
           }
           }
This is File /tmp/path