perl -e '$i=60;while($i-1){sleep(60);fork() && exec("net send * hello")}'

嫌がらせに便利(´ー｀)