23 строки для понимания memory leak в perl
#!/usr/bin/perl -w use strict; use Term::ANSIColor; if (defined ($ARGV[0]) && $ARGV[0]!~/[0-9]+/){ print color 'reset';
#!/usr/bin/perl -w use strict; use Term::ANSIColor; if (defined ($ARGV[0]) && $ARGV[0]!~/[0-9]+/){ print color 'reset';