The strain and pressure of modern living

#!/usr/bin/perl
while(1){
my $strain = {name => 'strain'};
my $pressure = {name => 'pressure'};
$strain->{strain} = $pressure;
$pressure->{pressure} = $strain;
select(undef, undef, undef, 0.0002);
print `clear && free -m`;
}