#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: fix_perl_header,v 1.1 1998/05/10 14:31:24 ejb Exp $
# $Source: /home/ejb/scripts/RCS/fix_perl_header,v $
# $Author: ejb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

print <<'EOF';
#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
EOF
    ;

scalar(<>);
my $st_top = 1;
my $st_skipping = 2;
my $st_rest = 3;
my $state = $st_top;
while (<>)
{
    if ($state == $st_top)
    {
	if (m/^\# This code, from the perl manual page/)
	{
	    $state = $st_skipping;
	}
    }
    elsif ($state == $st_skipping)
    {
	if (m/^\s*$/)
	{
	    $state = $st_rest;
	}
    }
	
    print unless $state == $st_skipping;
}