Help for this page

Select Code to Download


  1. or download this
    $ cat foo.pl 
#!/usr/bin/env perl
...
        carp
# use Carp                qw< carp >;
$
  2. or download this
    sub ReportExportUse {
    my( $fh, @mods ) = @_;
...
        local $_;
        local $. = 0;      # <------------- HACK
        while( <$fh> ) {
  3. or download this
    foo.pl:
     3: carp('boo');    # This is line 3
        carp
# use Carp                qw< carp >;