#!/usr/local/perl use Data::Dumper; $disappear = new Data::Dumper ([],[]); # welcome to all monkS localtime => 'after SNACKS'; study child $course or 'watch TV ?'; eval $situation; $mother => watch serial; $father => watch TV News; no warnings; $disappear->can( wait ); $mother = grep @you, "studying, sleeping"; BEGIN{ /The/, speech } grep @reading sound, ''; open DISAPER; eof; push @away, Murmuring SOund of sleep!; dump 'into garbage bin'; unpack new, disapper; close DISAPPER;