Select Code to Download

if ($data->Sql($SQL)) {
    print "The SQL failed.\nError:" .Error();
} else {
    print "Sql inserted\n"
}

use strict;
use Win32::ODBC;
...
    print "Sql inserted\n"
}
$data->Close();