Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use utf8;
- my $phrase = "My name is 404 ";
- my @text = split("", $phrase);
- my $array_num = @text;
- my $temp;
- $| = 1;
- while (1) {
- print "$phrase\r";
- select undef, undef, undef, 0.1;
- $temp = shift(@text);
- push(@text, $temp);
- $phrase = join("", @text);
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement