use Win32::OLE;

my $dmo = Win32::OLE->new("SQLDMO.SQLServer") or die;

$dmo->Connect('ServerName','UserName','Login');

my $db = $dmo->{Databases}->{'DatabaseName'};
my $table = $db->{Tables}->{'TableName'};
$table->Script(undef,"foo.sql");