I'm trying to open an input file as an argument using the Getopt::Long module. This is the beginning of my script:

#! /usr/bin/perl -s
use strict;
use warnings;

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
use Getopt::Long qw(GetOptions);;

my $input='';

GetOptions('input|in=s'    => \$input);

open(my $table1,'<', $input) or die "$! - [$input]"; #input file 

And this is how I launch the script:

$ script.pl -in /path/to/file.txt

I get as output:

No such file or directory - [] at script.pl line 13.

Line 13 is the line with open(....

Is there a mistake in the script?