Next Five Minute Lightning Talk: Perl's syscall Function #12            

acct

    my $acfile = "/root/acct.$$";
    open F, "> $acfile" or die;
    close F;

    syscall(&SYS_acct, $acfile) == 0 or die;

    sleep 60;

    syscall(&SYS_acct, undef) == 0 or die;