my $run_cmd = 'l';

open(COM, ". .aliases\n$run_cmd 2>&1 |") || die "Could not execute command\n";
...