in reply to how can i send data to /dev/null ?

Here are a few other simple ways:

1 while (<F>);
1 for (<F>);
join '', (<F>);
map {;} (<F>);
() = <F>;

[download]

:)

DWIM is Perl's answer to Gödel

In Section Seekers of Perl Wisdom