Help for this page

Select Code to Download


  1. or download this
    
sub foo {
...
  ( my $code, $string ) = split /\n/, $@;
  ...
}
  2. or download this
    sub foo {
  open F, ... or 
...

my( $code, $string ) = foo();
  3. or download this
    
sub foo {
...
  ( my $code, $string ) = $@;
  ...
}