#!/usr/local/bin/perl

open PIPE_FROM_ENV, "env |" or die $!;
print "$_\n" while (<PIPE_FROM_ENV>);