#!/usr/bin/perl -w -T

use strict;
print "hello ($0)\n";

#delete $ENV{$_} for qw(PATH BASH_ENV);
# may need to add more to list, PATH and BASH_ENV
# were all that drove my system crazy

exec "$1 foo"
  if ! @ARGV && $0 =~ m|^([\w\/\.]+)$|;