use strict;
use DB2::Admin;

# use 'perl -s'
our $INST;
our $USER;
our $PASS;
our $TABL;
our $SCHM;

DB2::Admin::->SetOptions('RaiseError' => 1);
DB2::Admin::->Connect(
  'Database' => $INST,
  'Userid'   => $USER,
  'Password' => $PASS
);

DB2::Admin->Export(
  'Database'   => $INST,
  'Schema'     => $SCHM,
  'Table'      => $TABL,
  'OutputFile' => "/tmp/data-$SCHM-$TABL.del",
  'FileType'   => 'DEL'
);
__END__