Select Code to Download

while ( $vlnum > 0 ) {
    $vldig = $vlnum % 10; 
    $vlsum = $vlsum + ($vldig * $vldig * $vldig);
    $vlnum = $vlnum / 10;
}

#!/usr/bin/perl -w

use strict;
...
} else { 
    print "Try another number!"; 
}