Select Code to Download

sub ReadFile {
    unless (open(INFILE,"< $_[0]")) {return 0;}
    my $readin = join //, map {chomp;$_} <INFILE>;
    close(INFILE);
    $readin;
}