if(@ARGV and $ARGV[0] eq 'TEST') {
  print "$ARGV[0]\n";
}