#!/usr/bin/perl -w
 
use strict;
 
sub reverse_string {
    my ($string) = @_;
    my $rev = reverse $string;
    return $rev;
}