Select Code to Download

strace -o strace.out -ff perl -lwe 'use strict; print qq($!)'
strace -o strace.out.2 -ff perl -lwe 'print qq($!)'

[chad@chad-laptop ~/x]$ diff 1 2
21,53c21,27
...
> _llseek(1, 0, 0xbfb1b010, SEEK_CUR)     = -1 ESPIPE (Illegal seek)
> _llseek(2, 0, 0xbfb1b010, SEEK_CUR)     = -1 ESPIPE (Illegal seek)
> ioctl(3, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbfb1b098) = -1 ENOTTY (Ina
+ppropriate ioctl for device)

open("/usr/share/perl/5.10/strict.pm", O_RDONLY|O_LARGEFILE) = 4
ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbfe70698) = -1 ENOTTY (Inapp
+ropriate ioctl for device)
_llseek(4, 0, [0], SEEK_CUR)            = 0