trapd00r · June 8, 2010 05:41
diff --git a/foopath.pl b/foopath.pl
 #!/usr/bin/perl
 use strict;

 chomp(my $pwd = `pwd`);

 my @chars = split//, $pwd;

 my $i = 202;
 for my $c(@chars) {
  print "\033[38;5;$i"."m".$c;
  $i++;
 }
	#!/usr/bin/perl
	use strict;

	chomp(my $pwd = `pwd`);

	my @chars = split//, $pwd;

	my $i = 202;
	for my $c(@chars) {
	print "\033[38;5;$i"."m".$c;
	$i++;
	}