Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $cell;my $row;my $sheet;my $col;my $excel;
$excel = Spreadsheet::ParseExcel::Workbook->Parse($file) or die ("cant
+ open file");
 etc etc

#!/usr/bin/perl -w
use strict;
...
die "Couldn't get excel file " unless defined $file;
my $cell;my $row;my $sheet;my $col;my $excel;
$excel = Spreadsheet::ParseExcel::Workbook->Parse($file) or die ("cant
+ open file");

my $url = "http://intranet/data.xls";
my  $file;
...
                               'GetContent' => sub { "DUMMY" }
                             }, 'Spreadsheet::ParseExcel' )
        };