#!/usr/bin/perl

print "必死だな（藁\n";
while ( 1 ) {
　print " ←こいつが一番必死だな（藁";
}