# We have some code, and somewhere wrote
open(Foo, "> /dev/null") or die "Cannot write /dev/null: $!";

# Time passes...

my $obj = Foo->new;

# And elsewhere
package Foo;

sub new {
  bless {}, shift;
}

# ...

1;