#!/usr/bin/perl

use warnings;
use strict;

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

                print "$late\n";