Help for this page

Select Code to Download

Select or download this

{
  my $var = 1;
...
print "in main program, \$var=$var\n";
kill('HUP', $$);
print "in main program, \$var=$var\n";