#!/usr/bin/perl -w


use DBI;

my ($server_name,$user,$password)=("enigsy-ser-backup-01", "########", "########");
$ENV{'DSM_DIR'} = "/opt/tivoli/tsm/client/ba/bin/";
$ENV{'DSMADMC'} = "dsmadmc";
$ENV{'DSM_CONFIG'} = $ENV{'DSM_DIR'}."dsm.sys";

my $dbh=DBI->connect(
  "dbi:TSM:$server_name",
  $user,
  $password,
  { 
    RaiseError => 0,
    PrintError => 0
  }
) or die $DBI::errstr;

my $sth=$dbh->prepare("query status") or die $dbh->errstr;
$sth->execute() or die $sth->errstr();

print "@{$sth->{NAME}}\n";
$sth->dump_results();