Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use Spreadsheet::WriteExcel;
my $sheet;
my ($row,$col)=(0,0);
my @newflds;
my $j=0;
my $source_csv = shift @ARGV  or die "invocation: $0 <Source CSV> <destination file>";
my $destname = shift @ARGV or die "invocation: $0 <Source CSV> <destination file>";
my $dest_book  = Spreadsheet::WriteExcel->new("$destname") or die "Could not create a new Excel file in $destname: $!";
my $dest_sheet = $dest_book->addworksheet($sheet);
open (FH,"<","$source_csv") or die "Can not open csv file \n $! \n";
while (<FH>) {
        chomp;
        @newflds=split(/,/);
        foreach (@newflds) {
                $dest_sheet->write($row,$col++,$_);
        }
        $row++;
        $col=0;
}
$dest_book->close();
close(FH);
print "done!\n";

 script <Source CSV> <destination file>"