#!/usr/bin/perl # # $Id$ # # use strict; sub N { @_ } print <<"EOF"; PLF INSTALLER

PLF Installer

EOF my $dir=opendir (DIR , ".") or die "Can't open dir"; foreach (sort readdir(DIR)) { (! m/png$/ ) && next; print "\n"; } print <<"EOF";
\n

$_

"; print "
\n"; $pl= $_; $pl =~ s/png$/pl/; if ( -f $pl ) { do $pl; foreach my $i (@data) { local $_; print @{$i}[0]."
\n"; } } print "
EOF