Select Code to Download

my $oct = 017;
my $dec = "017";
print $oct+0, $/, $dec+0; #plus zero forces it to be numeric

print "Dialing $index of $total on $ref->{datetime}: $ref->{host}, $re
+f->{phone}, $ref->{description}\n";