#! /usr/bin/env perl use 5.010; use strict; use warnings; use autodie; my $fh; my $old = select($fh); say 'Ist noch gar nicht offen!'; # say on unopened filehandle $fh open ($fh,'>','test.txt'); say 'Aber jetzt!'; close $fh; say 'Und schon wieder zu.'; # say() on closed filehandle $fh