Script error in perl programming…
Hey,
Following is the script in perl.
#!/usr/bin/perl
open(TXT, "<nonsuch.txt") || $error($!);
@data = < TXT >;
close(TXT);
print "Content-type:text/htmlnn <html>";
foreach $item(@data)
{
print "<li>" $item";
}
print "</html>";
sub error
{
print "Content-type:text/htmlnn";
print "<html><h3>Error: $_[0] </h3></html>";
}
I got errors while running this script. Please help me in this regard…








