perl 正規表現

■半角数字以外の文字が含まれている場合エラーとする。
sub chk_num {
my $num = shift;
if($num =~ /[^0-9]+/){
&error();
}
}