#!/usr/bin/perl

# this is testing the split command

if ($#ARGV != 0){
	die ("You need one argument. \n");
}

@variables = split(/\./,$ARGV[0]);

if ($#variables != 3){
	die ("You need one full IP address as the argument. \n");
}

print qq|$variables[3].$variables[2].$variables[1].$variables[0]\n|;