|
|
| |
| |
#!/usr/bin/perl
#
use strict;
use CGI;
my $q = new CGI;
my $readfile = $q->param('file');
if (-B $readfile)
{
print $q->header;
print qq~File is binary, Bye !~;
exit;
}
if (-x $readfile)
{
print $q->header;
print qq~File is executable, Bye !~;
exit;
}
open (READ, "$readfile");
my @file = ;
close (READ);
print "Content-type: text/html\n\n";
print @file;
|
|
| |
|
|
All our prices are INCLUDING VAT and
correct at time
of writing but are a guide and may be subject to change
depending on current exchange rate and other factors..
Interest free credit available on most products.
|
 |
|
|