Base 64 : Cod e & Decode

#!usr/bin/perl
#Simple Tool Base 64 Code & Decode
#Hav fun <3
use MIME::Base64;
use Time::HiRes "usleep";


sub main {
   Header();
    my @logo = (
        "+=============================================+", "\n",
        "|           Base 64 : Code & Decode           |", "\n",
        "+---------------------------------------------+", "\n",
        "| Author: Mr_AnarShi-T                        |", "\n",
        "| GreeT's: All Friends <3                     |", "\n",
        "| Home: Www.GaZa-Hacker.NeT                   |", "\n",
        "+---------------------------------------------+", "\n",
        "|           Thnx For Using Hav Fun ;)         |", "\n",
        "+=============================================+", "\n"
    );

    print "\n";
    marquesina(@logo);

}
main();
print "\n[+] Options\n\n";
print q(
1 - Base64 encode
2 - Base64 decode
3 - Exit

);
while (true) {
    print "\n\n[+] r00t~GHT: : ";
    chomp( my $op = <stdin> );
    print "\n\n";
    if ( $op eq 1 ) {
        print "[+] c  : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] Base64 : " . encode_base64($string);
    }
    elsif ( $op eq 2 ) {
        print "[+] ???? ???? : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] Base64 Decode : " . decode_base64($string) . "\n";
    }
    elsif ( $op eq 3 ) {
    print "have a nice Day";
        exit(1);
    }
    else {
        print "[+] Wrong Chose try Again !\n";
    }
}

sub Header {
    my $os = $^O;
    if ( $os =~ /Win32/ig ) {
        system("cls");
    }
    else {
        system("clear");
    }
}
sub marquesina {

    #Effect based in the exploits by Jafer Al Zidjali

    my @logo = @_;

    my $car = "|";

    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {

            $|++;

            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }
    sub mostrar {
        print $_[0];
        $car = $_[1];
    }

    }