use vars
qw($VERSION @EXPORT);
$VERSION = '3.012'; # $Id: //depot/Tk8/Tk/install.pm#12 $
@EXPORT = qw(installbin);
my $start = $Config{'startperl'};
my $perl = $Config{'perl'} || 'perl';
$start =~ s/$perl$/$prog/;
while (($src,$dst) = splice(@ARGV,0,2))
open(SRC
,"<$src") || die "Cannot open $src:$!";
$line =~ s/^#!\s*\S+/$start/;
chmod(0755,$dst) if (-f
$dst);
open(DST
,">$dst") || die "Cannot open $dst:$!";
print "installbin $src => $dst\n";
} while (defined($line = <SRC
>));