#!/usr/bin/perl

use warnings;
use strict;

sub show{
  my $name = shift;
  my ( $safername ) = ( $name =~ /^(\w+)$/ ); 
  return 'six hundred zagillion $$ to the account of '.$safername;
}

# end on true if exporting script
1;