| Current Path : /proc/thread-self/root/proc/self/root/usr/share/doc/perl-IO-Interactive/examples/ |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/doc/perl-IO-Interactive/examples/memory_test.pl |
#!/usr/bin/perl
use IO::Interactive;
print "Testing memory consumption as process $$\n";
$SIG{INT} = sub { exit };
while( 1 )
{
print { interactive } 'a' x 4096;
}