Help for this page

Select Code to Download

Select or download this

if (defined($info) and (-e $info)) {
    unless ($query =~ /support/)) {
        print "<a href\=\"$webdir/cgi-bin/getprods.pl?$prodlisting\">"
+; 
...
    print while <FILE>; 
    close FILE;
}

Select or download this

{
           local $/ = undef;
           open (FILE, $info) or die "Can't open file!";
           print <FILE>;
           close FILE;
}