use Fatal qw/ open seek /;

open(my $d => '+<', $0);

seek $d => 0, 2;

print $d @ARGV;

__DATA__
foo
bar