#!/usr/bin/perl -w

use strict;

my $vlnum = 0;
my $vldig = 0;
my $vlsum = 0;
my $vltmp = 0;

print "Insert a number: ";
chomp ( $vlnum = <STDIN> );

$vltmp = $vlnum;
while ( $vlnum > 0 ) {
       $vldig = $vlnum / 10; 
       $vlsum = $vlsum + ($vldig * $vldig * $vldig);
       $vlnum = $vlnum % 10;
}
if ( $vlsum == $vltmp ) { print "Is narc dude!"; } else { print "Try another number!"; }