use strict;
use warnings;

my $SYS_NAME;
my $FILE;
my $FS;
my $FS1;
my $FSUSED;
my $PIUSED;
my $FSFREE;
my $MOUNT;
my $SYS_TYPE;
my $IUSED;

... rest of your code here...