Select Code to Download

#!/usr/bin/perl -w

tie %SIG, Foo;
...
  #$_[1]      = sub { print "Parameter change method.\n" };
  #return sub { print "Return value method.\n" };
}