use FileHandle;

my $file = new FileHandle "myfile";
my @line = <$file>
    or die "Unable to open myfile: $!";
my $stuff = join '',@line;

$stuff =~ s/\n/","/g;
print '"' . $stuff . '"';
[download]