Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use warnings;
...
sub process_file {
    ....
}
  2. or download this
    package My::FileProcessor;

use strict;
...
}

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

use warnings;
...
    eval { process_file($file) };
    die "Could not process $file: $@" if $@;
}