#!/usr/bin/perl 
#########################
# Call packages
######################### 
use strict;
use warnings;
use Device::Gsm;

##########################
# Main
##########################
decry_sms();
##################
sub decry_sms(){
print"I'm in decry_sms script\n";
print" $dernier_num \n";
}