Select Code to Download

$ cat conf.pl
...

__END__

$ cat ONE.pm 
...
}
1;

$ cat TWO.pm 
...
}
1;

$ cat 1137798.pl
#!/usr/bin/perl -w
...

__END__

$ perl 1137798.pl
bar
Use of uninitialized value in print at 1137798.pl line 8.

$ cat ONE.pm 
...
}
1;

$ cat TWO.pm
...
  return $conf{'baz'};
}
1;

$ perl 1137798.pl
bar
quux

$ cat conf.ini 
...
baz=quux
less=more

$ cat 1137798-2.pl
...

__END__

$ perl 1137798-2.pl
bar
quux