Check if you are vulnerable to the OpenSSL « heartbleed » bug.
curl -s https://gist.githubusercontent.com/ironcamel/10223348/raw/ssl-heartbleed-check.pl | perl
Check if you are vulnerable to the OpenSSL « heartbleed » bug.
curl -s https://gist.githubusercontent.com/ironcamel/10223348/raw/ssl-heartbleed-check.pl | perl
#!/usr/bin/env perl | |
# Based on Randy Stauner's http://blogs.perl.org/users/randy_stauner/2011/06/exploratory-one-liners-with-less-typing.html | |
# and Marco Fontani's https://gist.github.com/1042504. | |
# To install all dependencies: | |
# sudo cpanm File::Slurp JSON::XS Data::Dump YAML::XS utf8::all Class::Autouse | |
# Installation: | |
# copy this file to ~/bin/p | |
# Example usage: | |
# p 'dd [File::Spec->path]' # dynamically load arbitrary modules | |
# p -pe 's/foo/bar/' foo.txt # use your favorite options like -lane |
x = 0 | |
[1,2,3].each{|x| puts x} | |
puts x |