use strict;
use warnings;
use IO::All;

my $file = shift || die $!;
my $io = io $file; 

print qq(I think it's more than one!\n) if $io->[1];