@echo off
(
echo #!/usr/bin/perl
echo open ^(INFILE, @ARGV[0]^);
echo my $line;my @thelines;my $thecounter=0;
echo while ^(^<INFILE^>^) {chomp;$line = $_;$line =~ s/\t/,/g;$thelines[$thecounter]=$line;++$thecounter;}
echo close ^(INFILE^);
echo open ^(OUTFILE, ">@ARGV[0]"^);
echo foreach ^(@thelines^) {print OUTFILE "$_\n";}
echo close ^(OUTFILE^);
) > tsv2csv.pl