#!/usr/bin/perl -w
use strict;
use warnings;

open(VPNUSERS,'-|','snmpwalk -v 2c -c public 192.168.1.1 1.3.6.1.4.1.9.9.392.1.3.21.1.2') || die "Failed\n";

while ((my $name = <VPNUSERS>))
{
        my @t = split(/\./, $name);
        my $x = @t;
        my $iii = 10;

        while ($iii < $x-1) {
                print chr($t[$iii]);
                $iii++;
        }
        print "\n";
}