or download this
#!/bin/perl
...
$SID=${ORACLE_SID};
@TSPACES=`$sqlplus -s -l $USERNAME/$PASS@$SID \@/opt/bin/ops/mlb_tabl
+espace.sql | awk '{print $1}' $sqlplus -s -l $USERNAME/$PASS@$SID
+\@/opt/bin/ops/mlb_tablespace.sql | awk '{print $3}' $sqlplus -s -l
+$USERNAME/$PASS@$SID \@/opt/bin/ops/mlb_tablespace.sql | awk '{print
+ $2}' $sqlplus -s -l $USERNAME/$PASS@$SID \@/opt/bin/ops/mlb_table
+space.sql | awk '{print $4}'`;