open(my $handle, '>', '/tmp/opened');
unlink('/tmp/opened');
<STDIN>;
close($handle);
