Select Code to Download

$ ulimit -a
...
virtual memory        (kbytes, -v) 8192

$ cat swaphogger.pl
#!/usr/bin/perl -w
...
                die __FILE__ . " [" . __LINE__ . "] couldn't fork() :$
+!\n";
        }
}

                $swapon = `swapon -s | tail -1` # strangeness

$ ./swaphogger.pl  10
./swaphogger.pl [8] child [2583]
...
Out of memory!
Out of memory!
Out of memory!

                $swapon = `swapon -s | tail -1` # strangeness