#!perl
use strict;
my $prog = "|C:/PROGRA~1/PostgreSQL/8.1/bin/psql.exe databasename username";
my $pid = open OUTFILE, $prog;
print OUTFILE "password\n";
my $line;
while ($line = <>) {
$line =~ s/\'/\'\'/g;
$line =~ s/\t/','/g;
$line =~ s/VALUES\(/VALUES\('/;
$line =~ s/\);/\'\);/;
print OUTFILE $line;
}
close OUTFILE;