eval 'exec perl -x $0 ${1+"$@"}' # -*-perl-*-
  if 0;
#!perl -w

$term="localterm";

if ($ARGV[0] =~ /^--(.+)/ ) {
	$term=$1;
	shift @ARGV;
}

exec $term, @ARGV;
die "Error in exec: $!\n";
