: 

# pl-sh -- a perl script, to be fed to sh(1)
# $Id$
# Carlos Duarte <cgd@mail.teleweb.pt>, 990228

# "." must be in path for this to work
eval 'exec perl -S $0 ${1+"$@"}'
  if 0;

# perl code here ...  (this example, implements echo(1))
print join ' ', @ARGV; 
print "\n";