sub funkshun {
my %h = @_;
  
    print qq(Argument "$_" has value "$h{$_}".\n)
        foreach sort keys %h;
  
  
    print "Verbosity specified as $h{verbosity}.\n" if exists $h{verbosity};
  
  
    print "Safe mode ", ($h{safe} ? 'on' : 'off'), ".\n";
}