use strict;
system (set); #this bit work s
my $var = Shift @ARGV;
my $value = 3000;
system (set $var=$value);#this bit doesn't