#!/bin/perl -wT
use strict;

my $taintedVar = $ARGV[0];
if ($taintedVar =~ m/^([0-9]+)$/)
{
  my $UNtaintedVar = $1;
}