use strict;
my $string = shift @ARGV || 'space';
my $length = length $string;
$string .= $string;
for my $start (0 .. $length-1) {
    print substr($string, $start, $length), "\n";
}