Select Code to Download

sub my_print($)
{
...
}

my_print( \$string );

sub my_print($) {
   my $string_ref = shift;
...
}

my_print( \$string );

sub my_print {
   my $s = join( $,, @_ ) . $\;
...
}

my_print( $string );