[PHP] php to perl

[Sebastian]

unfortunately i am a rookie with perl, can someone help me convert this
little bit of code to php?

thanks in advanced.

#!/usr/bin/perl
print "Content-type: text/html\n\n";
open(LOADAVG, '/proc/loadavg') or die $1;
while(<LOADAVG> ) {
$loadavg = substr( $_, 0, 4 );
}
close(LOADAVG);

cheers,
- Sebastian