Select Code to Download

sub alert {
   my $mesg = shift;
...
}

alert("Don't do that!");

sub quote {
    my $str = shift;    
...
    $str =~ s/'/\\'/g;
    return $str;
}