Help for this page

Select Code to Download


  1. or download this
    open (LIST, "<$listdir/$list");
        my @list = <LIST>;
    ...
        close (LOG);
    }
    
  2. or download this
    my $name = 'Ben Kittrell';
    $name=~s/^(.+)\s(.).+$/\L$1$2/g;
    my $nick = 'tha' . $name . 'sta';