Select Code to Download

$contents = do{local $/; <FILEHANDLE>;};

@contents = <FILEHANDLE>;
$contents = join "", @contents;