Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl
use warnings;
...

open my $output, '>>', $ARGV[2] or die "Error opening output file: $!\
+n";
print $output join "\n", sort keys %included;
  2. or download this
    #! /usr/bin/perl
use warnings;
...

open $output, '>', $ARGV[2] or die "Error opening output file: $!\n";
print $output join "\n", sort keys %included;