Help for this page

Select Code to Download


  1. or download this
    foreach my $allfilesfound (@dir_contents) {
    my $time = localtime();
    print "This file=$allfilesfound took $time to open<br>";
}
  2. or download this
    my $time = sub { localtime() };
foreach my $allfilesfound (@dir_contents) {
    print "This file=$allfilesfound took ".$time->()." to open<br>";
}