Convert 10 digit int into IP Address

inttoip.pl

#!/usr/bin/perl
#Author: Benjamin Meyer
#Date: 3/3/14
#Purpose: Convert 10 digit int into IP Address

use strict;
use warnings;

sub usage
{
	print "Usage: inttoip.pl intaddr\n";
	exit 1;
}

if(@ARGV != 1)
{
	&usage;
}

my $inttoconvert = $ARGV[0];

my @convertoctets;

$convertoctets[3] = $inttoconvert % 256;
$inttoconvert = int($inttoconvert/256);
$convertoctets[2] = $inttoconvert % 256;
$inttoconvert = int($inttoconvert/256);
$convertoctets[1] = $inttoconvert % 256; 
$inttoconvert = int($inttoconvert/256);
$convertoctets[0] = $inttoconvert % 256;

my $convertedint = join(".", @convertoctets);

print "$convertedint\n";