#!/usr/bin/perl-w
use strict;
use warnings;
use Data::Dumper;

my $a = "string";
print $a,"\n";