Select Code to Download

#!/usr/bin/perl

use strict;
...
use ExtUtils::MakeMaker qw(prompt);

prompt("export PS1=\e[0;31m\][\\u@\\H\\W\]\$\\e]m");