use Env qw[ $PATH @PATH];
print "$PATH\n";
print "$_\n" for @PATH;
__END__