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];
}

I hate the world

Perl