Select Code to Download

#!/usr/bin/perl

use strict;
...
while (my $row = $sth->fetch) {print "@$row<br />";}

1;

name|age|address|phone
Sandra | 46 | 1252 Some St, Anywhere, WI 12345 | 123-456-7890

if (ref($file) eq 'ARRAY'){print join("\n", $format, @$file, $createMo
+de), "\n";}<br />
else {print join("\n", $format, $file, $createMode), "\n";}