#!/usr/bin/perl
# convert comma seperated file to tab delimited

use strict;
use warnings;

system ("clear");
system ("ls *.csv");
print "\n";
print 'What is the comma seperated file you need to convert? ';
chomp (my $csv_file = <> );
print 'What shall I name the new file? ';
chomp (my $tabd_file = <> );
system ("< $csv_file tr \",\" \"\t\" > $tabd_file");
exit;