package Vm;

use warnings;
use strict;


 sub latest {
       my $late = `ssh root\@10.10.21.15 'cat /usr/local/LATEST_VULN'`;
        chomp($late);
        print "$late\n";
            }
1;


======================================================
perl script using above package called "Vm"


#!/usr/bin/perl

use warnings;
#use strict;
use Vm;

my $lat = Vm::latest();
print $lat;

sub RedHat {


my $path;

$path = `ssh root\@10.10.21.15 'cat /usr/local/$lat/qscheme/redhat_comp.qsv'`;

chomp($path);
open(FILE,'>redhat.txt');
print FILE $path;
close FILE;

open(REDHAT,'<redhat.txt');
while (<REDHAT>) {
chomp;
if (/$ARGV[0]/) {
print "$ARGV[0] exists in Redhat_comp.qsv\n";
}
}
}
RedHat($ARGV[0]);