... my $last_line = `tail $0 --lines=1`; $last_line =~ /^the last line/ or die "non-functional tail"; ... __END__ the last line