Help for this page

Select Code to Download

Select or download this

my $user = "one";
while (my $line=<DATA>) {
...
foo:bar:quz
one:two:three
a:b:c