Problem with with ParseExcel and file input

[Mike Martin]

I have problems with reading in a file variable in Spreadsheet::Parsexcel.
This is the relevant code.



use strict;
use warnings;

open (INPUT,"tele1");
my @input1=<INPUT>;
foreach my $input1 (@input1){
my @out1=split (/\./,$input1);
my $ext='.tab';
my $output1= "$out1[0]$ext";
open (OUT1,">>",$output1);
open (IN1,$input1) or die $!;
print $input1;
my $excel_file=$input1;
    use Spreadsheet::ParseExcel;
    my $oBook =
        Spreadsheet::ParseExcel::Workbook->Parse($excel_file) ;
    my($iR, $iC, $oWkS, $oWkC);

If I put in a literal file name it works - any ideas