use strict;
use warnings;

package TestHarness;

BEGIN {
   our @EXPORT_OK = qw( unlink );
   require Exporter;
   *import = \&Exporter::import;
}

sub unlink {
   print("PRE unlink\n");
   # Don't forget to properly handle context.
   my $rv = unlink(@_);
   print("POST unlink\n");
   return $rv;
}

1;