use strict;
use warnings;

system "ps vp $$";

local $/;
open my $fd, "<", $ARGV[0] or die $!;
my $content = <$fd>;
system "ps vp $$";

undef $content;
system "ps vp $$";