#!/usr/bin/perl -w

use strict;
use DBI;

my $dbname = 'xxx'
my $user = 'xxxxxx'
my $passwd = 'xxxx'

my $dbh = DBI->connect('DBI:Oracle:$dbname', '$user', '$passwd')
                or die "Couldn't connect to database: " . DBI->errstr;

my $sth = $dbh->prepare("select TABLESPACE_NAME, FILE_NAME, BYTES, MAXBYTES from dba_data_files where FILE_NAME like '%sapdata%' order by TABLESPACE_NAME")
                or die "Couldn't prepare statement: " . $dbh->errstr;

my @data;

$sth->execute
                or die "Couldn't execute statement: " . $sth->errstr;

while (@data = $sth->fetchrow_array) {
print "$data[0]\n";
}

$sth->finish;

$dbh->disconnect;