Select Code to Download

#!/usr/bin/perl
...
);
print "status: 200\n", if $res->[0] == 200;
print "status: 304\n", if $res->[0] == 304;