#!perl
if (@ARGV && $ARGV [0] eq "SECRET") {shift}
else {@ARGV = map {s/'/'"'"'/g; "'$_'"} @ARGV;
      exec qq !bash -ic "ISWTEST; exec $0 SECRET @ARGV"!}
... rest of program ...