Select Code to Download

#!/usr/bin/perl

$VERSION = 1.00;
...
sub flip_card {
    my $pop = $back->Show;
}

use strict;
use CGI;