Help for this page

Select Code to Download

Select or download this
```
 
sub scroll {
my ($i) = @_;
...


}
```

Select or download this

sub scroll {
my ($i) = @_
for (my $x=0;$x!=(length($i)+1);$x++){ print substr($i,$x,1), "\n"; }

}