#!/usr/local/bin/perl
perl -E 'open W,">/tmp/$_.txt" and say W for 1..30' && cat /tmp/*.txt