I'm not sure exactly what you're after, but if it's just a matter of dynamically determining your current working directory:

use warnings;
use strict;
use Cwd;
my $cwd = getcwd();
my $sms8x18 = $cwd . "\\sms8x18\\src";
print $sms8x18;
[download]

Cheers,
Rob