my $io = io 'file.txt'; #### eval { my = io 'file.txt' }; if $@ ..