#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;

my $file = "/data/www/mods/foo.pm";

print $< , "\n";
print $> , "\n";
print $( , "\n";
print $) , "\n";

print Dumper(\@INC);

system('/bin/ls -dl /data');
system('/bin/ls -dl /data/www');
system('/bin/ls -dl /data/www/mods');
system('/bin/ls -dl /data/www/mods/foo.pm');

open FH, "<" . $file or die $!;