#!/usr/bin/perl -w
use strict;
use AtExit;

$_ = atexit(sub {
  open STDOUT, ">/dev/tty" or die;
  print "bar\n";
});

close STDOUT;
exit 0;