Select Code to Download

#!/usr/bin/perl -wn
use strict; 
print((split(' '))[0],"\n") unless($_ =~ /^\s+$/);

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/