Select Code to Download

my $v="toto";
change( $v);
print $v;
sub change { $_[0]="tata"; }

sub my_print
  { if(UNIVERSAL::isa($_[0], 'GLOB' )) 
      { my( $fh, $text)= @_;
...
    else
      { print "my", $text; }
  }

#!/bin/perl -w
use strict;
my $s="toto";
...
  { $_[0] .= $_[1]; }
sub append_nb
  { $_[0] += $_[1]; }