Select Code to Download

#!/usr/bin/perl
use strict;
...
START:
print "Hello, world\n";
jump();

#!/usr/bin/perl
use strict;
...
sub TIESCALAR { bless {}, $_[0] }
sub STORE     { print "Read only\n"; }
sub FETCH     { goto END; }