Select Code to Download

sub i_am_bad {
  my $name = shift;
...

# Later...
print "Bad username!" if i_am_bad($name);