Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
        close YYY;
        $n++;
}

Select or download this

open("/tmp/2044.tmp", O_WRONLY|O_CREAT|O_TRUNC|O_LARGEFILE, 0666) = 20
+47
ioctl(2047, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbfd86918) = -1 ENOTTY (In
+appropriate ioctl for device)
...
close(2045)                             = 0
close(2044)                             = 0
close(2043)                             = 0