| Current Path : /usr/share/doc/perl-IO-Interactive/examples/ |
| Current File : //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;
}