1 #!/usr/bin/perl -w
      2 
      3 use strict;
      4 
      5 my $based_on = ($ARGV[0] && ($ARGV[0] =~/tp|sn/)) ? shift : 'tp';
      6 my $top = ($ARGV[0] && ($ARGV[0] =~ /[1-5]/)) ? shift : 1;
      7 scalar(@ARGV) && die "Arguments not parsed: " . join(':', @ARGV) . "\n";
      8 
      9 print "$based_on $top\n";