$ perl -MO=Deparse
while (<STDIN>)
{
    print;
}