#!/usr/bin/perl -w

use strict;
use Sybase::Simple;
my $dbh = new Sybase::Simple 'sa', 'pwd', 'server';
my $tables = $dbh->ArrayOfScalar("
    select name from $db..sysobjects where type = 'U'");

foreach my $tab (@$tables) {
    system("bcp $db..$tab out $tab.bcp -c -Usa -Ppwd -Sserver");
}