#!/usr/bin/perl -w
use strict;

my ($dbName,$dbUser,$dbPassword) = ('portal','shipfi','12345qwerT');

foreach(@ARGV) {
    print 'process table '.$_."\n";
    my $exportCmd = "mysqldump -u{$dbUser} -p{$dbPassword} {$dbName} {$_} > {$_}.sql";
    
    `$exportCmd`;    
}