#!/usr/bin/perl
use strict;
use warnings;

my $sql_file = '/path/to/sql/file.sql';
exit 0 # silently
  unless -r $sql_file;

my $user = 'user';
my $pass = 'pass';
my $db = 'somedb';

system "mysql -u$user -p$pass $somedb < $sql_file"
  and die "can't update $db\n";