sub rotate_line {
	my $interval = 1;   # Sleep time between twirls
	my $tcount = 0;     # For each tcount the line twirls one increment
	
	while ($interval) {
		$tcount++;
		print "$tcount\n";
		switch ($tcount) {
			case 1 {
				printf '-';
				sleep $interval;
			}
			case 2 {
				print "\\";
				sleep $interval;
			}
			case 3 {
				print "|";
				sleep $interval;
			}
			case 4 {
				print "/";
				sleep $interval;
			}
			else {
				$tcount = 0;
			}
		}
	}
}