#!/usr/bin/perl -w
$file = 'index.php';
system("cat $file")
    && die "System call failure: $!\n";
print "\n";

##</code><code>##

system('cat', "file") && ..