Would any body know of a PERL equivalent to this PHP code?

[2ndChance]

Would any body know of a PERL equivalent to this php code that pulls a single line of data radomly from a txt file

<?
    $delim = "\n";
	$quotefile = "quotes.txt";
    // okay, let's get going. 
    $fp = fopen($quotefile, "r");
    $contents = fread($fp, filesize($quotefile)); 
    $quote_arr = explode($delim,$contents); 
    fclose($fp); 
    // initiate randomness
    srand((double)microtime()*1000000); 
    // generate random quote index 
    $quote_index = (rand(1, sizeof($quote_arr)) - 1); 
    // get quote at $quote_index and return it 
    $herequote = $quote_arr[$quote_index]; 
    echo $herequote; 
?>

Although this is a nice bit of randomness for php I need to impliment it in a perl script I have and well ... My brain isn't up to snuff to figure it out.

Thanks for at least taking the time to read this