print Dumper($c);
$VAR1 = "\e]0;bw\@localhost:~\a[bw\@localhost ~]\$ ";