A dumb shell

#!/usr/bin/perl -w
#Path: /bin/dumb_shell.pl
#For those users with any privilege.
$|=1;

while(1){
        system('clear');
        print "You have logged in successfully!\n";
        sleep(5);
}