use strict;
use warnings;
 
use Switch;
 
my $test = test("pants");
my $outher = other("fuck");
 
print $test;
print $outher;
 
sub test {
 
  switch($_) {
 
    case("pants") {
      return "FUCK\n";
 
    }   
  }
}
 
sub other {
  return $_[0];
}