Your IP : 216.73.217.90

Current Path : /proc/self/root/proc/thread-self/root/proc/self/root/usr/share/doc/perl-CGI-Compile/t/
Upload File :
Current File : //proc/self/root/proc/thread-self/root/proc/self/root/usr/share/doc/perl-CGI-Compile/t/switch.cgi

#!/usr/bin/perl

use strict;
use warnings;
use Switch;

switch (42) {
    case 42 { print "switch works\n" }
}