open(SQL, "$filepath") || die "Cannot open file $filepath: $!";
@lines =<SQL>;

for($ii=0; $ii < @lines; $ii++)
{
    $command_str = $command_str . $lines[$ii];
}
print $command_str;
print "\n";