my $sub = 'do_this';

print $sub("Fred");


sub do_this {
   my $var = shift;
   return "My name is $var";
}

sub do_that {
   my $var = shift;
   return "My name is not $var";
}

My name is Fred