I think I'd write it as:

open(UPTOP, 'cat /proc/uptime | awk "{ print $1 } |"');
[download]

"The first rule of Perl club is you don't talk about Perl club."

open(UPTOP, 'cat /proc/uptime | awk "{ print $1 } |"');

Then $1 will be interpolated by shell, won't it? $1 should be AWK variable, neither Perl's one nor shell's one.

--
Tatsuhiko Miyagawa
miyagawa@cpan.org

D'oh!

You're right. Try this instead:

open(UPTOP, q(cat /proc/uptime | awk '{ print $1 } |'));
[download]

Actually, shouldn't it be:

open(UPTOP, q(cat /proc/uptime | awk '{ print $1 }'|));
[download]

or even (avoiding the "useless use of cat")

open(UPTOP, q(awk '{ print $1 }' /proc/uptime |));
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."